library(ggplot2)
library(dplyr)
library(DT)
library(dygraphs)
library(xts)
library(hrbrthemes) #Pckge de personnalisation
library(plotly) #Interactif

Ecrire un blabla sur les inégalités et la parité dans le monde et les liens entre différents facteurs etc. Bref on va étudier des chiffres sur le sujet

data = read.csv('DonneesParite.csv', sep=";")
#datatable(data, rownames = FALSE, filter="top", options = list(pageLength = 5, scrollX=T) )
dataFrance = data%>%
  filter(Country=="France")

dataFrance$Year = as.Date(dataFrance$Year,"%Y")
dataFrance = dataFrance%>%
  filter(!is.na(Year))

don=xts(x = dataFrance$FertilityRate, order.by = dataFrance$Year) #On créer un format xts
dygraph(don)#On trace
don=xts(x = dataFrance$LifeExpectancyFemale, order.by = dataFrance$Year) #On créer un format xts
dygraph(don)#On trace